0 REM << CD42-4 >>
1 REM ==================================
2 REM    COMMODARES PROBLEM #38-2 :
3 PRINT"[147]CRAFTY COMPARISON "
4 REM    SOLUTION BY
5 REM    CARMEN ARTINO
6 REM ==================================
7 PRINT"INPUT 4 NUMBERS, ONE AT A TIME"
10 FOR J=0 TO 3 : INPUT X
20 N(J)=X : NEXT J
30 M=N(0)
40 FOR J=1 TO 3
50 M=(ABS(N(J)-M) + N(J) + M)/2
90 NEXT J
99 PRINT M "IS THE LARGEST VALUE"